home *** CD-ROM | disk | FTP | other *** search
/ Saar AMOK 2 / Saar AMOK II - Oktober 1994 (1994)(Kreativ Marketing)(DE)[!][I-7598].iso / disks / 651_700 / 663 / mathplot / macros / dgl.rexx < prev    next >
OS/2 REXX Batch file  |  1994-01-01  |  392b  |  32 lines
  1. /* Test of getintervall2 */
  2. address "MPlot_ARexx"
  3. options results
  4.  
  5. x0=0
  6. y0=0
  7. dx = 0.1
  8.  
  9. x=x0
  10. y=y0
  11.  
  12. /* Abbruchbedingung */
  13. getintervall2 stem a.
  14.  
  15. maxx = a.xmaxreal
  16.  
  17. /* Zum Vergleich */
  18. setcolor plotcolor 1
  19. /* clear force */
  20. plot 0 normal
  21.  
  22. setcolor plotcolor 2
  23.  
  24. do while x < maxx 
  25.  evalstring "cos(x) x=" x
  26.  dy = result*dx
  27.  y = y + dy
  28.  x = x + dx
  29.  line x0 y0 x y "pixel=off"
  30.  x0 = x
  31.  y0 = y
  32. end